home *** CD-ROM | disk | FTP | other *** search
/ APDL Eductation Resources / APDL Eductation Resources.iso / earthmap / _earthmap / maps / getpar / c / getch_ < prev    next >
Encoding:
Text File  |  1989-04-01  |  811 b   |  39 lines
  1. /*
  2.  *
  3.  *  source file:   ./filters/loclib/getch_.c
  4.  *
  5.  * Joe Dellinger (SEP), June 11 1987
  6.  *    Inserted this sample edit history entry.
  7.  *    Please log any further modifications made to this file:
  8.  */
  9.  
  10. #include "fastpar.h"
  11. #define GETCH_QUEUE_SIZE  127
  12.  
  13. hash_item *getch_queue[GETCH_QUEUE_SIZE];
  14. int getch_queue_size = GETCH_QUEUE_SIZE;
  15.  
  16. int
  17. getch_(tag,type,val)
  18. char *tag, *type;
  19. MIXED val;
  20. {
  21.  register int iargc;
  22.  static int first_invoke = 1;
  23.  extern int xargc; extern char **xargv;
  24.  
  25.  if(first_invoke) {
  26.     for(iargc=1; iargc<xargc; iargc++) 
  27.     getpar_string_store(getch_queue,getch_queue_size,xargv[iargc]);
  28.     first_invoke = 0;
  29.     }
  30.  
  31.  return (getpar_decode(getch_queue,getch_queue_size,tag,type,val));
  32. }
  33.  
  34. getch_add_string_(string)
  35. char *string;
  36. {
  37.     getpar_string_store(getch_queue,getch_queue_size,string);
  38. }
  39.